setfont courier 13

ask "Make GameGfx ?"

if warn
  cd work:sega/sources/mr_nutz/binary
  if exists resource.script
    execute resource.script
  endif
  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/game_definition #?_p #?_raw lformat="%s   rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x game_all
endif

ask "Make SkyWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/sky
  if exists resource.script
    execute resource.script
  endif
  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/sky_definition #?_p #?_raw lformat="%s    rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x sky_all
endif

ask "Make WaterWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/water
  if exists resource.script
    execute resource.script
  endif

  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/water_definition #?_p #?_raw lformat="%s  rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x water_all
endif

ask "Make UnderWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/under
  if exists resource.script
    execute resource.script
  endif

  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/under_definition #?_p #?_raw lformat="%s  rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x under_all
endif

ask "Make InkaWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/inka
  if exists resource.script
    execute resource.script
  endif

  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/inka_definition #?_p #?_raw lformat="%s   rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x inka_all
endif

ask "Make TekknoWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/tekkno
  if exists resource.script
    execute resource.script
  endif

  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/tekkno_definition #?_p #?_raw lformat="%s rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x tekkno_all
endif

ask "Make MickeyWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/Mickey
  if exists resource.script
    execute resource.script
  endif

  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/Mickey_Definition #?_p #?_raw lformat="%s rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x Mickey_All
endif

ask "Make NatureWorld ?"

if warn
  cd work:sega/sources/mr_nutz/binary/nature
  if exists resource.script
    execute resource.script
  endif

  list >t:pack_all #?_bin lformat="execute work:sega/segabatch/segapacker %s%s %s%s_p"
  execute t:pack_all
  list >work:sega/sources/mr_nutz/nature_definition #?_p #?_raw lformat="%s rs.b    %l"
  list >t:join_all #?_p #?_raw lformat="execute work:sega/segabatch/segajoin %s%s"
  delete ram:x
  execute t:join_all
  copy ram:x nature_all
endif

ask "Make Levels ?"

if warn
  cd work:sega/mlevels
  if exists resource.script
    execute resource.script
  endif

;--------- Konvertieren aller vorhandenen Levels eines Directories---------------------

  ask "Make InkaLevels ?"

  if warn
   cd inka
  else

  ask "Make NatureLevels ?"
  if warn
   cd natur
  else

  ask "Make WaterLevels ?"
  if warn
   cd water
  else

  ask "Make TekknoLevels ?"
  if warn
   cd tekkno
  else

  ask "Make UnderLevels ?"
  if warn
   cd under
  else

  ask "Make SkyLevels ?"
  if warn
   cd Sky
  else

  ask "Make Endgegner Levels ?"
  if warn
   cd endgegner
  else

  ask "Make Warp Levels ?"
  if warn
   cd WARP

  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif

   if exists level.converter
 
    execute work:sega/segabatch/convert_levels ;work:sega/mlevels/inka
    list >t:pack_all p #?.sega lformat="execute work:sega/segabatch/segapacker2 %s"
    execute t:pack_all

    list >-levels_subdefinition #?.segap lformat="%s	rs.b	%l"
    list >t:join_world #?.segap lformat="execute work:sega/segabatch/segajoin %s%s"
    delete ram:x
    execute t:join_world
    copy ram:x -levels_all

   endif

;--------- Joinen aller Levels und anlegen des Source-info-files.

   cd Work:sega/mlevels

   list >t:join_all dirs lformat="execute work:sega/segabatch/segajoin %s%s/-levels_subdefinition"

   delete ram:x
   execute t:join_all
   copy ram:x work:sega/mlevels/levels_definition

   list >t:join_all dirs lformat="execute work:sega/segabatch/segajoin %s%s/-levels_all"

   delete ram:x
   execute t:join_all
   copy ram:x work:sega/mlevels/Levels_all

   delete ram:x

endif
